library(dplyr)
library(ggplot2)
dat = read.csv('figure3.csv') %>%
filter(!grepl('naics', Variable)) %>%
arrange(Importance) %>%
mutate(Variable = factor(Variable, levels=Variable))
p = ggplot(dat, aes(Importance, Variable)) + geom_point() +
xlab('Importance') +
ylab('') +
theme_minimal()
ggsave(p, file='figure3.pdf', width=8, height=4.3)
